home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #2
/
Monster Media No. 2 (Monster Media)(1994).ISO
/
pcboard
/
nuscan5.zip
/
NUSCAN5.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-05-23
|
3KB
|
142 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
;------------------------------------------------------------------------------
INTEGER001 = 100
STRING004 = "N"
STRING005 = ReadLine(PCBDat(), 31)
STRING003 = ReadLine(STRING005, 15)
STRING001 = FileInf(STRING003, 2)
INTEGER002 = Left(STRING001, 2) * INTEGER001 + Mid(STRING001, 4, 2)
GetUser
STRING002 = U_LDir()
INTEGER003 = Left(STRING002, 2) * INTEGER001 + Mid(STRING002, 4, 2)
If (INTEGER003 < INTEGER002) Then
PrintLn
PrintLn "@X0EUnregistered Evaluation Copy - 20 Second Delay"
PrintLn "@X0FEncourage your SysOp to register this program!"
Delay 200
PrintLn
PrintLn
PrintLn
PrintLn "@X03@X0BNEWSCAN v4.0 @X07Registered to: @X4F UNREGISTERED @X07"
PrintLn "@X10┌──────────────────────────────────────────────────────────────────────@X19┐@X07"
PrintLn "@X10│@X19 ┌──────────────────────────────────────────────────────────────────@X10┐@X10 @X19│@X07"
PrintLn "@X10│@X19 │@X1FThere have been @X9ENEW FILES @X1Fadded to the system since your last call@X10│ @X10@X19│@X07"
PrintLn "@X10│@X19 └@X10──────────────────────────────────────────────────────────────────┘ @X10@X19│@X07"
PrintLn "@X10└@X19──────────────────────────────────────────────────────────────────────┘@X07"
InputYN "@X0F@FIRST@, Would you like to @X0Aview @X0Fthe list of new @X0Afiles", STRING004, 7
Endif
STRING004 = Upper(STRING004)
If (STRING004 == "Y") Goto LABEL001
If (STRING004 == "N") Goto LABEL004
End
:LABEL001
Newline
InputStr "@X0C(@X0EU@X0C)@X0Fpload Directory @X0Bor @X0C(@X0EA@X0C)@X0Fll the directories", STRING006, 14, 1, Mask_Alpha(), 8
If (STRING006 == "U") Goto LABEL002
If (STRING006 == "u") Goto LABEL002
If (STRING006 == "a") Goto LABEL003
If (STRING006 == "A") Goto LABEL003
Goto LABEL004
:LABEL002
Dir "N;S;U"
PrintLn "@PON@"
Goto LABEL004
:LABEL003
Dir "N;S;A"
PrintLn "@PON@"
:LABEL004
Newline
PrintLn
PrintLn
PrintLn
PrintLn "@X0EUNREGISTERED EVALUATION COPY - 20 SECOND DELAY @X07"
PrintLn "@X0FTo Register this program call @X0EThe Billboard BBS - @X0C(@X0B312@X0C)@X0B284-5508"
Delay 200
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 10 Goto
; 9 Let
; 19 PrintLn
; 7 If
; 1 GetUser
; 1 InputStr
; 1 InputYN
; 2 Delay
; 2 Newline
; 2 Dir
;
;
; ■ Functions used :
;
; 2 *
; 2 +
; 6 ==
; 1 <
; 1 !
; 1 Upper()
; 2 Mid()
; 2 Left()
; 1 U_LDir()
; 1 Mask_Alpha()
; 1 PCBDat()
; 2 ReadLine()
; 1 FileInf()
;
;------------------------------------------------------------------------------
;
; Analysis flags : d
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 1 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------